100 REM********************************
110 REM         DEATH SECTOR
120 REM       FRANK E. DIGIOIA
130 REM********************************
140 REM THE TRANSACTOR VOL 8 ISSUE 3
150 REM********************************
160 DATA"WARNING!!! THIS PROGRAM WILL "
170 DATA"CREATE A SECTOR ON YOUR DISK "
180 DATA"WHICH WILL CAUSE THE DISK TO "
190 DATA"SELF-DESTRUCT IF B-E COMMAND"
200 DATA"IS ISSUED ON THAT SECTOR. "
210 REM********************************
220 READA$,B$,C$,D$,E$:REM READ WARNING
230 R$=CHR$(13):PRINTA$R$B$R$C$R$D$R$E$
240 GOSUB570:REM VERIFY DISK NAME
250 OPEN2,8,2,"#0":REM OPEN BUFFER 0
260 PRINT#15,"B-P";2;0:REM START OF BUF
270 FOR I=1 TO 146:READ ML:CK=CK+ML
280 PRINT#2,CHR$(ML);:NEXT:REM FILL BUF
290 DATA234,234,234,169,  1,133,  6,169
300 DATA  0,133,  7,173,142,  3,174,143
310 DATA  3,172,144,  3,141,  0,  3,142
320 DATA  1,  3,140,  2,  3,169,224,133
330 DATA  0,165,  0, 48,252, 96,165, 34
340 DATA240,  4,201, 36,144,  4,169, 46
350 DATA133, 34, 32,102,  3, 32,102,  3
360 DATA198, 34,208,246,230, 34, 32,163
370 DATA253, 32,  0,254,165, 34,201, 36
380 DATA176, 11,230, 34, 32,109,  3, 32
390 DATA109,  3, 76, 62,  3,173,141,  3
400 DATA141, 62,  3,141, 63,  3,141, 64
410 DATA  3,169,  1, 76,105,249,174,  0
420 DATA 28,202, 76,113,  3,174,  0, 28
430 DATA232,138, 41,  3,141,145,  3,173
440 DATA  0, 28, 41,252, 13,145,  3,141
450 DATA  0, 28,160,  5,162,255,202,208
460 DATA253,136,208,250, 96,234, 76, 38
470 DATA  3,  0
480 IFCK<>14432THENPRINT"BAD DATA":STOP
490 PRINT#15,"U2";2;0;T;S:REM WRITE BLK
500 PRINT"USE THIS LINE TO ERASE DISK:"
510 PRINT "OPEN15,8,15:OPEN2,8,2,";
520 PRINT CHR$(34)"#0"CHR$(34)":PRINT#";
530 PRINT "15,"CHR$(34)"B-E"CHR$(34);
540 PRINT "2;0;";T;";"S;":CLOSE15:CLOSE2"
550 CLOSE15:CLOSE2:END:REM FINISHED!
560 REM********************************
570 REM  ***** READ DISK NAME *****
580 REM********************************
590 OPEN15,8,15,"I0":REM REFRESH BAM
600 RN$=CHR$(144)+CHR$(7)+CHR$(16)
610 PRINT#15,"M-R"RN$:REM POINT TO NAME
620 FORI=1TO16:GET#15,P$:N$=N$+P$:NEXT
630 PRINT"DISK NAME:";N$
640 INPUT"WRITE DEATH SECTOR";YN$
650 IF LEFT$(YN$,1)<>"Y" THEN END
660 PRINT"WHERE DO YOU WANT DEATH SECTOR?"
670 INPUT"TRACK ";T:INPUT"SECTOR ";S
680 RETURN